home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / CMCD0704.ISO / Software / Shareware / Utilitare / Girder / girder331c.exe / {app} / help / vb_example.txt < prev   
Text File  |  2003-01-12  |  1KB  |  46 lines
  1. This is an example on how to use the girder.dll com server from
  2. VBA.
  3.  
  4. Private Sub Girder_Test()
  5.    
  6.     Dim GirderEventLib As GIRDERLib.GirderEvent
  7.     Dim a(2) As String
  8.     Dim b(0 To 1) As Byte
  9.    
  10.     a(0) = "Payload 1"
  11.     a(1) = "Payload 2"
  12.     a(2) = "Payload 3"
  13.     b(0) = 5
  14.     b(1) = 25
  15.    
  16.     Set GirderEventLib = New GirderEvent
  17.    
  18.     On Error GoTo ErrLabel:
  19.    
  20.       GirderEventLib.SendEventSimple "Event1-Simple", 18
  21.       GirderEventLib.SendEvent "Event2-Normal", 18, a
  22.       GirderEventLib.SendEventFull "Event3-Full", 18, a, b
  23.      
  24.     Exit Sub
  25.    
  26. ErrLabel:
  27.        
  28.    Select Case Err.Number
  29.    
  30.    Case -2147483647 ' input devices not enabled
  31.    
  32.       Debug.Print "Input device not enabled"
  33.      
  34.      
  35.    Case -2147483648# ' girder not running
  36.      
  37.       Debug.Print "Girder not Running"
  38.      
  39.    Case Else
  40.    
  41.       Err.Raise Err.Number, Err.Source, Err.Description, _
  42.                     Err.HelpFile, Err.HelpContext
  43.                    
  44.    End Select
  45.    
  46. End Sub